home *** CD-ROM | disk | FTP | other *** search
/ Internet Surfer: Getting Started / Internet Surfer - Getting Started (Wayzata Technology)(7231)(1995).bin / pc / mac / bonus / peter_le / finger-1 / my_units / myooabou.uni < prev    next >
Text File  |  1992-02-24  |  2KB  |  97 lines
  1. unit OOAboutHelp;
  2.  
  3. { This code is part of the Finger/Fingerd source code, written in THINK Pascal 4 }
  4. { Copyright 1991-1992 Peter N Lewis }
  5. { If you use this code, you must give me credit in your about box and documentation }
  6. { This is part of my generic library of routines }
  7.  
  8. interface
  9.  
  10.     uses
  11.         OOMainLoop;
  12.  
  13.     var
  14.         about_object: WObject;
  15.         help_object: WObject;
  16.  
  17.     procedure InitOOAboutHelp;
  18.     procedure DoOOAbout;
  19.     procedure DoOOHelp;
  20.     function IsAboutFront: boolean;
  21.     function IsHelpFront: boolean;
  22.  
  23. implementation
  24.  
  25.     uses
  26.         MyUtils, MyUtilities;
  27.  
  28.     type
  29.         VerObject = object(DObject)
  30.                 procedure Create (id: integer);
  31.                 override;
  32.             end;
  33.         AObject = object(VerObject)
  34.                 procedure Destroy;
  35.                 override;
  36.             end;
  37.         HObject = object(VerObject)
  38.                 procedure Destroy;
  39.                 override;
  40.             end;
  41.  
  42.     procedure VerObject.Create (id: integer);
  43.     begin
  44.         UseResFile(app_resfile);
  45.         SetVersionParamText('', '');
  46.         inherited Create(id);
  47.         SetPort(window);
  48.         TextFont(geneva);
  49.     end;
  50.  
  51.     procedure AObject.Destroy;
  52.     begin
  53.         about_object := nil;
  54.         inherited Destroy;
  55.     end;
  56.  
  57.     procedure HObject.Destroy;
  58.     begin
  59.         help_object := nil;
  60.         inherited Destroy;
  61.     end;
  62.  
  63. {$S Init}
  64.     procedure InitOOAboutHelp;
  65.     begin
  66.         about_object := nil;
  67.         help_object := nil;
  68.     end;
  69.  
  70. {$S}
  71.     procedure DoOOAbout;
  72.     begin
  73.         if about_object <> nil then begin
  74.             if FrontWindow <> about_object.window then
  75.                 SelectWindow(about_object.window);
  76.         end
  77.         else begin
  78.             new(AObject(about_object));
  79.             about_object.Create(about_dialog_id);
  80.             ShowWindow(about_object.window);
  81.         end;
  82.     end;
  83.  
  84.     procedure DoOOHelp;
  85.     begin
  86.         if help_object <> nil then begin
  87.             if FrontWindow <> help_object.window then
  88.                 SelectWindow(help_object.window);
  89.         end
  90.         else begin
  91.             new(HObject(help_object));
  92.             help_object.Create(help_dialog_id);
  93.             ShowWindow(help_object.window);
  94.         end;
  95.     end;
  96.  
  97. end.